home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
CD ROM Paradise Collection 4
/
CD ROM Paradise Collection 4 1995 Nov.iso
/
graphics
/
3dvect37.zip
/
STUFF.INC
< prev
next >
Wrap
Text File
|
1994-06-22
|
3KB
|
117 lines
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
;
; Filename : stuff.inc
; Included from: Main.asm
; Description : this file only contains useless stuff used in that cheap main.exe demo.
;
; Written by: John McCarthy
; 1316 Redwood Lane
; Pickering, Ontario.
; Canada, Earth, Milky Way (for those out-of-towners)
; L1X 1C5
;
; Internet/Usenet: BRIAN.MCCARTHY@CANREM.COM
; Fidonet: Brian McCarthy 1:229/15
; RIME/Relaynet: ->CRS
;
; Home phone, (905) 831-1944, don't call at 2 am eh!
;
; John Mccarthy would really love to work for a company programming Robots
; or doing some high intensive CPU work. Hint. Hint.
;
; Send me your protected mode source code!
; Send me your Objects!
; But most of all, Send me a postcard!!!!
;
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
public _putdosmsg
_putdosmsg:
push ax
push edx
add edx,_code32a
mov al,dl
and ax,0fh
shr edx,4
mov v86r_ds,dx
mov v86r_dx,ax
mov v86r_ah,9
mov al,21h
int 33h
pop edx
pop ax
ret
hextbl db '0123456789ABCDEF'
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
; Put 8 digit hex number to screen buffer
; In:
; EAX - number to put
; EDI -> screen buffer location to put at
;░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░░
_puthexnum:
push eax ebx ecx edx edi
mov ebx,offset hextbl
mov edx,eax
mov ecx,8
mov ah,0fh
puthexnuml0:
rol edx,4
mov al,dl
and al,0fh
xlat
stosw
loop puthexnuml0
pop edi edx ecx ebx eax
ret
wipe_v_memory:
@rlp edi,0a0000h ; wipe video memory
mov ecx,320*200*4/4/4
xor eax,eax
rep stosd
ret
endtext db "Send me a postcard!",13,10
db 13,10
db "John McCarthy tries to be a regular on Digital Pixel: (416) 298-1487",13,10
db " and on the Toronto VR SIG: (416) 631-6625",13,10
db 13,10
db "Or write to this address:",13,10
db 13,10
db " John McCarthy",13,10
db " 1316 Redwood Lane",13,10
db " Pickering, Ontario.",13,10
db " Canada, Earth, Milky Way. (for those out-of-towners)",13,10
db " L1X 1C5",13,10
db "$"
; screen text for font routines
runscreen:
border 0,0,xactual-1,yactual-1,16*3
steelbox 3,3,xactual-1-3,yactual-1-3,16*3,28
hole xmin+xcenter-2,ymin+ycenter-2,xmax+xcenter+1,ymax+ycenter+1,16*3
fillarea xmin+xcenter,ymin+ycenter,xmax+xcenter-1,ymax+ycenter-1,0
textend
runtext:
newtext 35,13,14
db "3D Vectors in 320x400 Mode-X"
lowercase
newtext 15,yactual-32,14
db "Vector Routines by John McCarthy"
newtext 11,yactual-22,9
db "X-Mode Routines by Matt Pritchard"
newtext 23,yactual-12,12
db "Protected Mode Header by TRAN"
textend